home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
os2
/
octa209s.zip
/
octave-2.09
/
libcruft
/
misc
/
d1mach.f
< prev
next >
Wrap
Text File
|
1997-08-20
|
952b
|
28 lines
* d1mach.f Do not edit. Generated automatically by gen-d1mach.c
double precision function d1mach(i)
integer i
integer i1var (2)
integer i2var (2)
integer i3var (2)
integer i4var (2)
integer i5var (2)
double precision dmach(5)
equivalence (dmach(1), i1var(1))
equivalence (dmach(2), i2var(1))
equivalence (dmach(3), i3var(1))
equivalence (dmach(4), i4var(1))
equivalence (dmach(5), i5var(1))
data i1var(1), i1var(2) / 0 , 1048576 /
data i2var(1), i2var(2) / -1 , 2146435071 /
data i3var(1), i3var(2) / 0 , 1017118720 /
data i4var(1), i4var(2) / 0 , 1018167296 /
data i5var(1), i5var(2) / 1352628735 , 1070810131 /
if (i .lt. 1 .or. i .gt. 5) goto 999
d1mach = dmach(i)
return
999 write(*,1999) i
1999 format(' d1mach - i out of bounds', i10)
call xstopx (' ')
d1mach = 0
end